PROCEDURE doStuff.
    MESSAGE PROGRAM-NAME ( 1 ) VIEW-AS ALERT-BOX.
END PROCEDURE.
